home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 2004 #11
/
Amiga Plus CD - 2004 - No. 11.iso
/
AmiSoft
/
Comm
/
yam
/
YAMGenesis.lha
/
YAMGenesis
/
debug
/
GenesisOffline.yam.deb
next >
Wrap
Text File
|
2001-10-21
|
7KB
|
181 lines
/* GenesisOffline.yam - Go offline in Genesis
*
* $VER: GenesisOffline.yam 1.03 (7.5.01) © H. van der Ree <hivdree@uwnet.nl>
*
* This script is used after new mail is send or downloaded. It is importend
* that the option 'wait for ' is NOT ticked when the argument SENT is supplied,
* otherwise YAM will be locked!
*/
OPTIONS RESULTS
OPTIONS FAILAT 5
SIGNAL ON FAILURE
SIGNAL ON SYNTAX
IF ~OPEN('FH', 'RAM:GenesisOnline.debug', 'A') THEN
CALL OPEN('FH', 'RAM:GenesisOnline.debug', 'W')
CALL WRITELN(FH, '')
CALL WRITELN(FH, date('N') '-' time('N')||': GenesisOffline.yam.')
PARSE ARG args .
CALL WRITELN(FH, date('N') '-' time('N')||': Arg is' args||'.')
interface = GETVAR(GENESISINTERFACE, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': Used interface' interface||'.')
genesisport = "GENESIS"
file = "YAM:Rexx/YahooGroupsScanner.rexx"
IF pos("SEND", upper(args)) = 1 THEN
DO
CALL SETVAR(YAMSTARTED, "YES", "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': Changing ADDRESS to YAM.')
ADDRESS "YAM"
CALL WRITELN(FH, date('N') '-' time('N')||': Checking CHANGEDYAMSTATUS variable.')
changedyamstatus = GETVAR("CHANGEDYAMSTATUS", "GLOBAL")
IF changedyamstatus = "YES" THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Content is' changedyamstatus||'.')
CALL WRITELN(FH, date('N') '-' time('N')||': Open T:YAMSTATUSLIST.')
IF OPEN(FS, 'T:YAMSTATUSLIST', 'R') THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Changing address to YAM.')
CALL WRITELN(FH, date('N') '-' time('N')||': Set folder to Outgoing.')
SETFOLDER 'Outgoing'
CALL WRITELN(FH, date('N') '-' time('N')||': Get folderinfo.')
FOLDERINFO STEM folder.
CALL WRITELN(FH, date('N') '-' time('N')||': Unselect ALL.')
LISTSELECT NONE
orgmsgid = READLN(FS)
CALL WRITELN(FH, date('N') '-' time('N')||': Reading orgmsgid =' orgmsgid||', Start loop.')
DO i = 0 TO folder.TOTAL - 1
SETMAIL i
MAILINFO STEM mail.
CALL WRITELN(FH, date('N') '-' time('N')||': Mail msgid =' mail.MSGID||'.')
IF POS(orgmsgid, mail.MSGID) ~= 0 THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Changing status of file.')
MAILSTATUS W
orgmsgid = READLN(FS)
CALL WRITELN(FH, date('N') '-' time('N')||': Reading orgmsgid =' orgmsgid||'.')
END
END
CALL WRITELN(FH, date('N') '-' time('N')||': Closing file T:YAMSTATUSLIST.')
CALL CLOSE(FS)
END
CALL DELETEVAR("CHANGEDYAMSTATUS", "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': Starting Yam2NN POST ALL.')
ADDRESS COMMAND 'SYS:C/Yam2NN POST ALL'
CALL WRITELN(FH, date('N') '-' time('N')||': Yam2NN POST ALL DONE!!')
OPTIONS FAILAT 6
ADDRESS COMMAND 'delete >NIL: "T:YAMSTATUSLIST"'
OPTIONS FAILAT 5
END
CALL WRITELN(FH, date('N') '-' time('N')||': Checking CHANGEDYAMSTATUS DONE!')
CALL WRITELN(FH, date('N') '-' time('N')||': ** Starting MailCheck.')
CALL CLOSE(FH)
MAILCHECK MANUAL
CALL OPEN('FH', 'RAM:GenesisOnline.debug', 'A')
CALL WRITELN(FH, '')
CALL WRITELN(FH, date('N') '-' time('N')||': ** GenesisOffline.yam.')
CALL WRITELN(FH, date('N') '-' time('N')||': ** MailCheck DONE I quit!')
CALL CLOSE(FH)
EXIT 0
END
IF pos("NEWS", upper(args)) = 1 THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Changing ADDRESS to COMMAND.')
CALL WRITELN(FH, date('N') '-' time('N')||': ## Starting Yam2NN.')
CALL CLOSE(FH)
IF EXISTS('YAM:Yam2NN.debug') THEN
DO
OPTIONS FAILAT 6
ADDRESS COMMAND
'delete >NIL: YAM:YAM2NN_SEND.debug'
'rename >NIL: YAM:YAM2NN.debug YAM:YAM2NN_SEND.debug'
OPTIONS FAILAT 5
END
ADDRESS COMMAND 'SYS:c/Yam2NN'
CALL OPEN('FH', 'RAM:GenesisOnline.debug', 'A')
CALL WRITELN(FH, '')
CALL WRITELN(FH, date('N') '-' time('N')||': ## GenesisOffline.yam.')
CALL WRITELN(FH, date('N') '-' time('N')||': ## Yam2NN DONE I quit!')
CALL CLOSE(FH)
EXIT 0
END
/* Don't go offline if one of these applications is running */
ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"
CALL WRITELN(FH, date('N') '-' time('N')||': Checking YAMSTART ..')
action = GETVAR(YAMSTART, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': content is' action||'.')
IF action = "YES" THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Looking for ports ...')
DO i = 1 TO WORDS(ports)
CALL WRITELN(FH, date('N') '-' time('N')||': ' WORD(ports, i))
IF SHOW('P', WORD(ports, i)) THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Found port' WORD(ports, i))
CALL LastBits
CALL WRITELN(FH, date('N') '-' time('N')||': If this shows up then there is something seriously wrong!')
END
END
CALL WRITELN(FH, date('N') '-' time('N')||': Checking port' genesisport||'.')
IF SHOW('P', genesisport) THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Found!')
CALL WRITELN(FH, date('N') '-' time('N')||': Changing ADDRESS to' genesisport||'.')
ADDRESS VALUE genesisport
CALL WRITELN(FH, date('N') '-' time('N')||': Checking online status')
ISONLINE interface
RCN = RC
CALL WRITELN(FH, date('N') '-' time('N')||': RC:' RCN||'.')
IF RCN = 1 THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Put interface offline.')
OFFLINE interface
CALL WRITELN(FH, date('N') '-' time('N')||': DONE! RC:' RC||'.')
END
END
END
LastBits:
CALL WRITELN(FH, date('N') '-' time('N')||': LastBits, deleting vars')
CALL DELETEVAR(YAMSTART, "GLOBAL")
CALL DELETEVAR(YAMSTARTED, "GLOBAL")
CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
CALL WRITELN(FH, date('N') '-' time('N')||': Looking for' file||'.')
IF EXISTS(file) THEN
DO
CALL WRITELN(FH, date('N') '-' time('N')||': Starting' file||'.')
ADDRESS REXX file
CALL WRITELN(FH, date('N') '-' time('N')||': DONE!')
END
CALL WRITELN(FH, date('N') '-' time('N')||': Offline, go back to YAM.')
CALL CLOSE(FH)
EXIT 0
FAILURE:
SIGNAL OFF FAILURE
CALL WRITELN(FH, date('N') '-' time('N')||': ERROR!!!')
CALL WRITELN(FH, date('N') '-' time('N')||': Line' SIGL SOURCELINE(SIGL))
CALL WRITELN(FH, date('N') '-' time('N')||': caused an error, RC='||RC)
CALL CLOSE(FH)
EXIT RC
SYNTAX:
SIGNAL OFF SYNTAX
CALL WRITELN(FH, date('N') '-' time('N')||': SYNTAX ERROR!!!')
CALL WRITELN(FH, date('N') '-' time('N')||': Line' SIGL SOURCELINE(SIGL))
CALL WRITELN(FH, date('N') '-' time('N')||': caused an error, RC='||RC)
CALL CLOSE(FH)
EXIT RC